perm filename Z.F4[P11,LCS] blob
sn#590686 filedate 1981-05-28 generic text, type T, neo UTF8
00100 SUBROUTINE BOXX
00200 COMMON R2,JA /LIMIT/LIM,ITEM,L,I,IX
00300 1 /JCHAR/IXX,ISEMI,IBLA,IG,JED,KED,REDIT,RITEM
00400 1 /XRN/RN(1) /DL/JX22 /PTR/KWDS(1) /DPY/ID(4000),MEDIT,IGO
00500 COMMON /RRJJ/RJJ2,RJJ(20),JJA /DPTR/JWDS(1)
00550 1 /YED/JYED,IBOX,RBOX
00600
00700 429 IX=I
00800 MEDIT=KWDS(JX22)
00900 JY=RN(MEDIT)+2
01000 CALL LOOP(0,JY,1,I,MEDIT,RN)
01100 JJA=RN(I+1)
01200 JYED=JY-2
01300 L=I+2
01400 DO 422 K=1,11
01500 IF(K.GT.JYED)GO TO 423
01600 RJJ(K)=RN(L+K)
01700 GO TO 422
01800 423 RJJ(K)=0
01900 422 CONTINUE
02000 RJJ2=RN(L)
02100 IF(IGO.GT.0)GO TO 4231
02200 C NO BOX WHEN IN GROUP EDIT ROUTINE
02300 RBOX=RJJ2
02400 IBOX=I
02500 CALL BOX(IBOX,RBOX)
02600 4231 ITEM=ITEM+1
02700 CC MOVE DPTR-1(1) ; ST2=WDS(ITEM)
02900 END